home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 2 / L'Effet Pommier - Volume 02.iso / Arcade / Marathon Bonus / PfhorteFAT_1.0d21 / Scripts / Clockwise Stairs next >
Text File  |  1995-07-27  |  622b  |  35 lines
  1. * This script is Copyright 1995 by Steve Israelson
  2. * Thanks to Br'fin for the suggestion
  3. *
  4. * Lets try making some stairs
  5. *
  6.  
  7. * Loop until the floor height passes the defaults floor height
  8. repeat
  9.     * adjust the next steps height
  10.     moveFloor StairSize
  11.     moveCeiling StairSize
  12.     
  13.     * make the poly backwards, and remember the corner point
  14.     lastPoint
  15.     turn -90
  16.     turn LeftSize
  17.     move RightSize
  18.     pushPen
  19.     turn -90
  20.     move OrigLineLength
  21.     makeLine
  22.     
  23.     * go back to that saved point
  24.     popPen
  25.     makeLine 
  26.     pushLine
  27.     
  28.     lastPoint
  29.     makeLine
  30.     closePoly
  31.  
  32.     * make the saved line the selected line for the next step
  33.     popLine
  34. until FloorPassedDefault
  35.